home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / os2 / adaptor.zip / ADAPT.ZIP / adaptor / examples / hpf_gen / pi / fx.fcm next >
Text File  |  1993-03-23  |  216b  |  14 lines
  1. c
  2. c   fx.f  91/21/11 
  3. c
  4. c   Function to integrate in the integration example.
  5. c
  6.     subroutine fun(f,x,points)
  7.         integer points
  8.     double precision x(points),f(points)
  9.  
  10.     f = 4.D0 / (1.D0 + x*x)
  11.  
  12.         return
  13.     end
  14.